← Index
NYTProf Performance Profile   
For /usr/share/koha/opac/cgi-bin/opac/opac-search.pl
  Run on Tue Oct 15 17:10:45 2013
Reported on Tue Oct 15 17:12:57 2013

Filename(eval 1144)[/usr/lib/perl5/Template/Document.pm:78]
StatementsExecuted 5 statements in 6µs
Eval Invoked At/usr/lib/perl5/Template/Document.pm line 78
Sibling evals1, 2, 3, 4, 5, 6, 7, 8
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1sub {
21600ns my $context = shift || die "template sub called without context\n";
313µs13µs my $stash = $context->stash;
# spent 3µs making 1 call to Template::Context::stash
41500ns my $output = '';
51200ns my $_tt_error;
6
711µs eval { BLOCK: {
8$output .= "<div id=\"header-wrapper\"><div id=\"members\">\n ";
9#line 7 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
10if (($stash->get('opacuserlogin'))) {
11$output .= " <ul>\n";
12#line 3 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
13if (!(($stash->get('loggedinusername')))) {
14$output .= " <li><a href=\"/cgi-bin/koha/opac-user.pl\">Log in to your account</a></li>";
15}
16
17$output .= " ";
18#line 5 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
19if (($stash->get('loggedinusername'))) {
20$output .= " <li><span class=\"members\">Welcome, <a href=\"/cgi-bin/koha/opac-user.pl\"><span class=\"loggedinusername\">";
21#line 3 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
22
23# FOREACH
24do {
25 my ($_tt_value, $_tt_error, $_tt_oldloop);
26 my $_tt_list = $stash->get('USER_INFO');
27
28 unless (UNIVERSAL::isa($_tt_list, 'Template::Iterator')) {
29 $_tt_list = Template::Config->iterator($_tt_list)
30 || die $Template::Config::ERROR, "\n";
31 }
32
33 ($_tt_value, $_tt_error) = $_tt_list->get_first();
34 eval { $_tt_oldloop = $stash->get('loop') };
35 $stash->set('loop', $_tt_list);
36 eval {
37FOR1: while (! $_tt_error) {
38 $stash->{'USER_INF'} = $_tt_value;
39#line 3 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
40$output .= $stash->get(['USER_INF', 0, 'title', 0]);
41$output .= " ";
42#line 3 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
43$output .= $stash->get(['USER_INF', 0, 'firstname', 0]);
44$output .= " ";
45#line 3 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
46$output .= $stash->get(['USER_INF', 0, 'surname', 0]);;
47 ($_tt_value, $_tt_error) = $_tt_list->get_next();
48 }
49 };
50 $stash->set('loop', $_tt_oldloop);
51 die $@ if $@;
52 $_tt_error = 0 if $_tt_error && $_tt_error eq Template::Constants::STATUS_DONE;
53 die $_tt_error if $_tt_error;
54};
55
56$output .= "</span></a></span></li>\n\n ";
57}
58
59$output .= " ";
60#line 6 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
61if (($stash->get('ShowOpacRecentSearchLink'))) {
62$output .= " <li><a href=\"/cgi-bin/koha/opac-search-history.pl\" title=\"View your search history\">Search history</a> [<a class=\"logout\" href=\"/cgi-bin/koha/opac-search-history.pl?action=delete\" title=\"Delete your search history\" onclick=\"return confirm(MSG_DELETE_SEARCH_HISTORY);\">x</a>]</li>\n ";
63}
64
65$output .= " ";
66#line 6 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
67if (($stash->get('loggedinusername'))) {
68$output .= "<li>";
69#line 6 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
70if ($stash->get('persona')) {
71$output .= "<a class=\"logout\" id=\"logout\" href=\"/cgi-bin/koha/opac-main.pl?logout.x=1\" onclick='navigator.id.logout();'>";
72}
73else {
74$output .= "<a class=\"logout\" id=\"logout\" href=\"/cgi-bin/koha/opac-main.pl?logout.x=1\">";
75}
76
77$output .= "Log out</a></li>";
78}
79
80$output .= " </ul> \n ";
81}
82
83$output .= " </div>\n ";
84#line 8 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
85if (($stash->get('opacheader'))) {
86$output .= " ";
87#line 8 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
88$output .= $stash->get('opacheader');
89$output .= " ";
90}
91
92$output .= " <div id=\"opac-main-search\" class=\"yui-g\">\n ";
93#line 11 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
94if (($stash->get('opacsmallimage'))) {
95$output .= " <h1 id=\"libraryname\" style=\"background-image: url('";
96#line 9 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
97$output .= $stash->get('opacsmallimage');
98$output .= "');\">\n ";
99}
100else {
101$output .= " <h1 id=\"libraryname\">\n ";
102}
103
104$output .= "<a href=\"/cgi-bin/koha/opac-main.pl\">";
105#line 11 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
106if (($stash->get('LibraryName'))) {
107#line 11 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
108$output .= $stash->get('LibraryName');
109}
110else {
111$output .= "Koha Online Catalogue";
112}
113
114$output .= "</a></h1>\n\n<div id=\"fluid\">\n\n";
115#line 62 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
116if (($stash->get('OpacPublic'))) {
117$output .= " <div id=\"fluid-offset\">\n";
118#line 54 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
119if (!(($stash->get('advsearch')))) {
120$output .= "<form name=\"searchform\" method=\"get\" action=\"/cgi-bin/koha/opac-search.pl\" id=\"searchform\">\n <label for=\"masthead_search\" class=\"left\"> Search ";
121#line 17 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
122if (!(($stash->get('OpacAddMastheadLibraryPulldown')))) {
123$output .= " ";
124#line 17 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
125if (($stash->get('mylibraryfirst'))) {
126$output .= " (in ";
127#line 17 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
128$output .= $stash->get('mylibraryfirst');
129$output .= " only)";
130}
131
132$output .= " ";
133}
134
135$output .= " </label>\n\n <select name=\"idx\" id=\"masthead_search\" class=\"left\">\n ";
136#line 22 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
137if (($stash->get('ms_kw'))) {
138$output .= " <option selected=\"selected\" value=\"\">Library catalogue</option>\n ";
139}
140else {
141$output .= " <option value=\"\">Library catalogue</option>\n ";
142}
143
144$output .= " ";
145#line 24 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
146if (($stash->get('ms_ti'))) {
147$output .= " <option selected=\"selected\" value=\"ti\">Title</option>\n ";
148}
149else {
150$output .= " <option value=\"ti\">Title</option>\n ";
151}
152
153$output .= " ";
154#line 26 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
155if (($stash->get('ms_au'))) {
156$output .= " <option selected=\"selected\" value=\"au\">Author</option>\n ";
157}
158else {
159$output .= " <option value=\"au\">Author</option>\n ";
160}
161
162$output .= " ";
163#line 28 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
164if (($stash->get('ms_su'))) {
165$output .= " <option selected=\"selected\" value=\"su\">Subject</option>\n ";
166}
167else {
168$output .= " <option value=\"su\">Subject</option>\n ";
169}
170
171$output .= " ";
172#line 30 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
173if (($stash->get('ms_nb'))) {
174$output .= " <option selected=\"selected\" value=\"nb\">ISBN</option>\n ";
175}
176else {
177$output .= " <option value=\"nb\">ISBN</option>\n ";
178}
179
180$output .= " ";
181#line 32 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
182if (($stash->get('ms_se'))) {
183$output .= " <option selected=\"selected\" value=\"se\">Series</option>\n ";
184}
185else {
186$output .= " <option value=\"se\">Series</option>\n ";
187}
188
189$output .= " ";
190#line 36 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
191if (($stash->get('numbersphr'))) {
192$output .= " ";
193#line 34 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
194if (($stash->get('ms_callnum'))) {
195$output .= " <option selected=\"selected\" value=\"callnum,phr\">Call number</option>\n ";
196}
197else {
198$output .= " <option value=\"callnum,phr\">Call number</option>\n ";
199}
200
201$output .= " ";
202}
203else {
204$output .= " ";
205#line 36 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
206if (($stash->get('ms_callnum'))) {
207$output .= " <option selected=\"selected\" value=\"callnum\">Call number</option>\n ";
208}
209else {
210$output .= " <option value=\"callnum\">Call number</option>\n ";
211}
212
213$output .= " ";
214}
215
216$output .= "</select>\n";
217#line 39 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
218if (($stash->get('ms_value'))) {
219$output .= " <input type=\"text\" title=\"Type search term\" id = \"transl1\" name=\"q\" value=\"";
220#line 37 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
221
222# FILTER
223$output .= do {
224 my $output = '';
225 my $_tt_filter = $context->filter('html')
226 || $context->throw($context->error);
227
228$output .= $stash->get('ms_value');
229
230 &$_tt_filter($output);
231};
232
233$output .= "\" class=\"left\" style=\"width: 35%; font-size: 111%;\"/><div id=\"translControl\"></div>\n";
234}
235else {
236$output .= " <input type=\"text\" id = \"transl1\" name=\"q\" class=\"left\" style=\"width: 35%; font-size: 111%;\"/><div id=\"translControl\"></div>\n";
237}
238
239$output .= " ";
240#line 50 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
241if (($stash->get('OpacAddMastheadLibraryPulldown'))) {
242$output .= " <select name=\"branch_group_limit\" id=\"select_library\" class=\"left\">\n <option value=\"\">All libraries</option>\n ";
243#line 41 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
244if ($stash->get('BranchCategoriesLoop')) {
245$output .= "<optgroup label=\"Libraries\">";
246}
247
248$output .= " ";
249#line 42 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
250
251# FOREACH
252do {
253 my ($_tt_value, $_tt_error, $_tt_oldloop);
254 my $_tt_list = $stash->get('BranchesLoop');
255
256 unless (UNIVERSAL::isa($_tt_list, 'Template::Iterator')) {
257 $_tt_list = Template::Config->iterator($_tt_list)
258 || die $Template::Config::ERROR, "\n";
259 }
260
261 ($_tt_value, $_tt_error) = $_tt_list->get_first();
262 eval { $_tt_oldloop = $stash->get('loop') };
263 $stash->set('loop', $_tt_list);
264 eval {
265FOR1: while (! $_tt_error) {
266 $stash->{'BranchesLoo'} = $_tt_value;
267$output .= " ";
268#line 42 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
269if (($stash->get(['BranchesLoo', 0, 'selected', 0]))) {
270$output .= "<option selected=\"selected\" value=\"branch:";
271#line 41 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
272$output .= $stash->get(['BranchesLoo', 0, 'value', 0]);
273$output .= "\">";
274#line 41 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
275$output .= $stash->get(['BranchesLoo', 0, 'branchname', 0]);
276$output .= "</option>\n ";
277}
278else {
279$output .= "<option value=\"branch:";
280#line 42 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
281$output .= $stash->get(['BranchesLoo', 0, 'value', 0]);
282$output .= "\">";
283#line 42 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
284$output .= $stash->get(['BranchesLoo', 0, 'branchname', 0]);
285$output .= "</option>";
286}
287
288$output .= " ";;
289 ($_tt_value, $_tt_error) = $_tt_list->get_next();
290 }
291 };
292 $stash->set('loop', $_tt_oldloop);
293 die $@ if $@;
294 $_tt_error = 0 if $_tt_error && $_tt_error eq Template::Constants::STATUS_DONE;
295 die $_tt_error if $_tt_error;
296};
297
298$output .= " ";
299#line 47 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
300if ($stash->get('BranchCategoriesLoop')) {
301$output .= " </optgroup>\n <optgroup label=\"Groups\">\n ";
302#line 46 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
303
304# FOREACH
305do {
306 my ($_tt_value, $_tt_error, $_tt_oldloop);
307 my $_tt_list = $stash->get('BranchCategoriesLoop');
308
309 unless (UNIVERSAL::isa($_tt_list, 'Template::Iterator')) {
310 $_tt_list = Template::Config->iterator($_tt_list)
311 || die $Template::Config::ERROR, "\n";
312 }
313
314 ($_tt_value, $_tt_error) = $_tt_list->get_first();
315 eval { $_tt_oldloop = $stash->get('loop') };
316 $stash->set('loop', $_tt_list);
317 eval {
318FOR1: while (! $_tt_error) {
319 $stash->{'bc'} = $_tt_value;
320$output .= " ";
321#line 46 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
322if (($stash->get(['bc', 0, 'selected', 0]))) {
323$output .= " <option selected=\"selected\" value=\"multibranchlimit-";
324#line 44 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
325$output .= $stash->get(['bc', 0, 'categorycode', 0]);
326$output .= "\">";
327#line 44 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
328$output .= $stash->get(['bc', 0, 'categoryname', 0]);
329$output .= "</option>\n ";
330}
331else {
332$output .= " <option value=\"multibranchlimit-";
333#line 45 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
334$output .= $stash->get(['bc', 0, 'categorycode', 0]);
335$output .= "\">";
336#line 45 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
337$output .= $stash->get(['bc', 0, 'categoryname', 0]);
338$output .= "</option>\n ";
339}
340
341$output .= " ";;
342 ($_tt_value, $_tt_error) = $_tt_list->get_next();
343 }
344 };
345 $stash->set('loop', $_tt_oldloop);
346 die $@ if $@;
347 $_tt_error = 0 if $_tt_error && $_tt_error eq Template::Constants::STATUS_DONE;
348 die $_tt_error if $_tt_error;
349};
350
351$output .= " </optgroup>\n ";
352}
353
354$output .= " </select>\n ";
355}
356else {
357$output .= " ";
358#line 50 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
359if (($stash->get('opac_limit_override'))) {
360$output .= " ";
361#line 49 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
362if (($stash->get('opac_search_limit'))) {
363$output .= " <input name=\"limit\" value=\"";
364#line 48 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
365$output .= $stash->get('opac_search_limit');
366$output .= "\" type=\"hidden\" />\n ";
367}
368
369$output .= " ";
370}
371else {
372$output .= " ";
373#line 50 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
374if (($stash->get('mylibraryfirst'))) {
375$output .= " <input name=\"limit\" value=\"branch:";
376#line 49 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
377$output .= $stash->get('mylibraryfirst');
378$output .= "\" type=\"hidden\" />\n ";
379}
380
381$output .= " ";
382}
383
384$output .= " ";
385}
386
387$output .= " <input type=\"submit\" value=\"Go\" id=\"searchsubmit\" class=\"left\" />\n";
388#line 51 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
389if (($stash->get('opacbookbag'))) {
390$output .= "<span id=\"cmspan\"></span>";
391}
392
393$output .= " ";
394#line 51 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
395if (($stash->get('virtualshelves'))) {
396$output .= "<a href=\"/cgi-bin/koha/opac-shelves.pl\" id=\"listsmenulink\">Lists</a>";
397}
398
399$output .= " </form>\n";
400}
401else {
402$output .= " <div style=\"width:80%;*margin-bottom:-30px;\">\n";
403#line 53 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
404if (($stash->get('virtualshelves'))) {
405$output .= "<a href=\"/cgi-bin/koha/opac-shelves.pl\" id=\"listsmenulink\">Lists</a>";
406}
407
408#line 53 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
409if (($stash->get('opacbookbag'))) {
410$output .= "<span id=\"cmspan\"></span>";
411}
412
413$output .= " </div>\n";
414}
415
416$output .= " <div id=\"moresearches\">\n<a href=\"/cgi-bin/koha/opac-search.pl\">Advanced search</a>\n";
417#line 56 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
418if (($stash->get('OpacBrowser'))) {
419$output .= "<span class=\"pipe\"> | </span><a href=\"/cgi-bin/koha/opac-browser.pl\">Browse by hierarchy</a>";
420}
421
422$output .= " ";
423#line 56 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
424if (($stash->get('OpacAuthorities'))) {
425$output .= "<span class=\"pipe\"> | </span><a href=\"/cgi-bin/koha/opac-authorities-home.pl\">Authority search</a>";
426}
427
428$output .= " ";
429#line 56 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
430if (($stash->get('opacuserlogin') && $stash->get('reviewson') && $stash->get('OpacShowRecentComments'))) {
431$output .= "<span class=\"pipe\"> | </span><a href=\"/cgi-bin/koha/opac-showreviews.pl\">Recent comments</a>";
432}
433
434$output .= " ";
435#line 56 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
436if (($stash->get('TagsEnabled'))) {
437$output .= "<span class=\"pipe\"> | </span><a href=\"/cgi-bin/koha/opac-tags.pl\">Tag cloud</a>";
438}
439
440$output .= " ";
441#line 56 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
442if (($stash->get('OpacCloud'))) {
443$output .= "<span class=\"pipe\"> | </span><a href=\"/cgi-bin/koha/opac-tags_subject.pl\">Subject cloud</a>";
444}
445
446$output .= " ";
447#line 56 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
448if (($stash->get('OpacTopissue'))) {
449$output .= "<span class=\"pipe\"> | </span><a href=\"/cgi-bin/koha/opac-topissues.pl\">Most popular</a>";
450}
451
452$output .= " ";
453#line 58 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
454if (($stash->get('suggestion'))) {
455$output .= " ";
456#line 58 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
457if (($stash->get('AnonSuggestions'))) {
458$output .= "<span class=\"pipe\"> | </span><a href=\"/cgi-bin/koha/opac-suggestions.pl\">Purchase suggestions</a>\n ";
459}
460elsif (($stash->get('OPACViewOthersSuggestions'))) {
461$output .= "<span class=\"pipe\"> | </span><a href=\"/cgi-bin/koha/opac-suggestions.pl\">Purchase suggestions</a>\n ";
462}
463
464$output .= " ";
465}
466
467$output .= " </div>\n </div>\n</div>\n\n";
468}
469
470$output .= " <!-- OpacPublic --> \n\n";
471#line 64 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
472if (($stash->get('opacbookbag'))) {
473$output .= "<div id=\"cartDetails\">Your cart is empty.</div>";
474}
475
476$output .= " ";
477#line 82 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
478if (($stash->get('virtualshelves'))) {
479$output .= " <div id=\"listsmenu\" class=\"yuimenu\" style=\"display: none\">\n <div class=\"bd\">\n <h4>Public lists</h4>\n ";
480#line 71 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
481if (($stash->get('pubshelves'))) {
482$output .= " <ul class=\"first-of-type\">\n ";
483#line 69 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
484
485# FOREACH
486do {
487 my ($_tt_value, $_tt_error, $_tt_oldloop);
488 my $_tt_list = $stash->get('pubshelvesloop');
489
490 unless (UNIVERSAL::isa($_tt_list, 'Template::Iterator')) {
491 $_tt_list = Template::Config->iterator($_tt_list)
492 || die $Template::Config::ERROR, "\n";
493 }
494
495 ($_tt_value, $_tt_error) = $_tt_list->get_first();
496 eval { $_tt_oldloop = $stash->get('loop') };
497 $stash->set('loop', $_tt_list);
498 eval {
499FOR1: while (! $_tt_error) {
500 $stash->{'pubshelvesloo'} = $_tt_value;
501$output .= " <li class=\"yuimenuitem\"><a href=\"/cgi-bin/koha/opac-shelves.pl?viewshelf=";
502#line 68 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
503$output .= $stash->get(['pubshelvesloo', 0, 'shelfnumber', 0]);
504$output .= "&amp;sortfield=";
505#line 68 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
506$output .= $stash->get(['pubshelvesloo', 0, 'sortfield', 0]);
507$output .= "\">";
508#line 68 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
509
510# FILTER
511$output .= do {
512 my $output = '';
513 my $_tt_filter = $context->filter('html')
514 || $context->throw($context->error);
515
516$output .= $stash->get(['pubshelvesloo', 0, 'shelfname', 0]);
517
518 &$_tt_filter($output);
519};
520
521$output .= "</a></li>\n ";;
522 ($_tt_value, $_tt_error) = $_tt_list->get_next();
523 }
524 };
525 $stash->set('loop', $_tt_oldloop);
526 die $@ if $@;
527 $_tt_error = 0 if $_tt_error && $_tt_error eq Template::Constants::STATUS_DONE;
528 die $_tt_error if $_tt_error;
529};
530
531$output .= " <li class=\"yuimenuitem\"><a class=\"yuimenuitemlabel\" href=\"/cgi-bin/koha/opac-shelves.pl?display=publicshelves\">[View All]</a></li>\n </ul>\n ";
532}
533else {
534$output .= " No public lists ";
535}
536
537$output .= " ";
538#line 80 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
539if (($stash->get('opacuserlogin'))) {
540$output .= " <h4>Your lists</h4>\n ";
541#line 80 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
542if (($stash->get('loggedinusername'))) {
543$output .= " ";
544#line 79 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
545if (($stash->get('barshelves'))) {
546$output .= " <ul class=\"first-of-type\">\n ";
547#line 74 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
548
549# FOREACH
550do {
551 my ($_tt_value, $_tt_error, $_tt_oldloop);
552 my $_tt_list = $stash->get('barshelvesloop');
553
554 unless (UNIVERSAL::isa($_tt_list, 'Template::Iterator')) {
555 $_tt_list = Template::Config->iterator($_tt_list)
556 || die $Template::Config::ERROR, "\n";
557 }
558
559 ($_tt_value, $_tt_error) = $_tt_list->get_first();
560 eval { $_tt_oldloop = $stash->get('loop') };
561 $stash->set('loop', $_tt_list);
562 eval {
563FOR1: while (! $_tt_error) {
564 $stash->{'barshelvesloo'} = $_tt_value;
565$output .= " <li class=\"yuimenuitem\"><a href=\"/cgi-bin/koha/opac-shelves.pl?viewshelf=";
566#line 73 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
567$output .= $stash->get(['barshelvesloo', 0, 'shelfnumber', 0]);
568$output .= "&amp;sortfield=";
569#line 73 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
570$output .= $stash->get(['barshelvesloo', 0, 'sortfield', 0]);
571$output .= "\">";
572#line 73 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
573
574# FILTER
575$output .= do {
576 my $output = '';
577 my $_tt_filter = $context->filter('html')
578 || $context->throw($context->error);
579
580$output .= $stash->get(['barshelvesloo', 0, 'shelfname', 0]);
581
582 &$_tt_filter($output);
583};
584
585$output .= "</a></li>\n ";;
586 ($_tt_value, $_tt_error) = $_tt_list->get_next();
587 }
588 };
589 $stash->set('loop', $_tt_oldloop);
590 die $@ if $@;
591 $_tt_error = 0 if $_tt_error && $_tt_error eq Template::Constants::STATUS_DONE;
592 die $_tt_error if $_tt_error;
593};
594
595$output .= " <li class=\"yuimenuitem\"><a class=\"yuimenuitemlabel\" href=\"/cgi-bin/koha/opac-shelves.pl?display=privateshelves\">[View all]</a></li>\n </ul>\n ";
596}
597else {
598$output .= " <ul class=\"first-of-type\">\n <li>No private lists</li>\n <li class=\"yuimenuitem\"><a class=\"yuimenuitemlabel\" href=\"/cgi-bin/koha/opac-shelves.pl?display=privateshelves\">[New list]</a></li></ul>\n ";
599}
600
601$output .= " ";
602}
603else {
604$output .= " <ul class=\"first-of-type\"><li><a href=\"/cgi-bin/koha/opac-user.pl\">Log in to create your own lists</a></li></ul>\n ";
605}
606
607$output .= " ";
608}
609
610$output .= " </div>\n</div><!-- /listmenu /virtualshelves -->\n";
611}
612
613$output .= "\n<div id=\"listsDetails\"></div>\n</div>\n</div>\n<div id=\"breadcrumbs\" class=\"yui-g\">\n";
614#line 95 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
615if (($stash->get('searchdesc'))) {
616$output .= "<p>";
617#line 95 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
618if (($stash->get('total'))) {
619$output .= "<strong>Your search returned ";
620#line 87 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
621
622# FILTER
623$output .= do {
624 my $output = '';
625 my $_tt_filter = $context->filter('html')
626 || $context->throw($context->error);
627
628$output .= $stash->get('total');
629
630 &$_tt_filter($output);
631};
632
633$output .= " results.</strong> ";
634#line 87 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
635if (($stash->get('related'))) {
636$output .= " (related searches: ";
637#line 87 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
638
639# FOREACH
640do {
641 my ($_tt_value, $_tt_error, $_tt_oldloop);
642 my $_tt_list = $stash->get('related');
643
644 unless (UNIVERSAL::isa($_tt_list, 'Template::Iterator')) {
645 $_tt_list = Template::Config->iterator($_tt_list)
646 || die $Template::Config::ERROR, "\n";
647 }
648
649 ($_tt_value, $_tt_error) = $_tt_list->get_first();
650 eval { $_tt_oldloop = $stash->get('loop') };
651 $stash->set('loop', $_tt_list);
652 eval {
653FOR1: while (! $_tt_error) {
654 $stash->{'relate'} = $_tt_value;
655#line 87 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
656$output .= $stash->get(['relate', 0, 'related_search', 0]);;
657 ($_tt_value, $_tt_error) = $_tt_list->get_next();
658 }
659 };
660 $stash->set('loop', $_tt_oldloop);
661 die $@ if $@;
662 $_tt_error = 0 if $_tt_error && $_tt_error eq Template::Constants::STATUS_DONE;
663 die $_tt_error if $_tt_error;
664};
665
666$output .= "). ";
667}
668
669$output .= " <a href=\"";
670#line 87 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
671$output .= $stash->get('OPACBaseURL');
672$output .= "/cgi-bin/koha/opac-search.pl?";
673#line 87 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
674
675# FILTER
676$output .= do {
677 my $output = '';
678 my $_tt_filter = $context->filter('url')
679 || $context->throw($context->error);
680
681
682# FILTER
683$output .= do {
684 my $output = '';
685 my $_tt_filter = $context->filter('html')
686 || $context->throw($context->error);
687
688$output .= $stash->get('query_cgi');
689
690 &$_tt_filter($output);
691};
692
693
694 &$_tt_filter($output);
695};
696
697#line 87 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
698
699# FILTER
700$output .= do {
701 my $output = '';
702 my $_tt_filter = $context->filter('url')
703 || $context->throw($context->error);
704
705
706# FILTER
707$output .= do {
708 my $output = '';
709 my $_tt_filter = $context->filter('html')
710 || $context->throw($context->error);
711
712$output .= $stash->get('limit_cgi');
713
714 &$_tt_filter($output);
715};
716
717
718 &$_tt_filter($output);
719};
720
721$output .= "&amp;count=";
722#line 87 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
723
724# FILTER
725$output .= do {
726 my $output = '';
727 my $_tt_filter = $context->filter('html')
728 || $context->throw($context->error);
729
730$output .= $stash->get('countrss');
731
732 &$_tt_filter($output);
733};
734
735$output .= "&amp;sort_by=acqdate_dsc&amp;format=rss2\" class=\"rsssearchlink\"><img src=\"";
736#line 87 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
737$output .= $stash->get('interface');
738$output .= "/";
739#line 87 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
740$output .= $stash->get('theme');
741$output .= "/images/feed-icon-16x16.png\" alt=\"Subscribe to this search\" title=\"Subscribe to this search\" class=\"rsssearchicon\"/></a>\n";
742}
743else {
744$output .= " <strong>No results found!</strong>\n<p>\n ";
745#line 91 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
746if (($stash->get('searchdesc'))) {
747$output .= " No results found for that in ";
748#line 90 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
749$output .= $stash->get('LibraryName');
750$output .= " catalogue. <a href=\"";
751#line 90 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
752$output .= $stash->get('OPACBaseURL');
753$output .= "/cgi-bin/koha/opac-search.pl?";
754#line 90 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
755
756# FILTER
757$output .= do {
758 my $output = '';
759 my $_tt_filter = $context->filter('url')
760 || $context->throw($context->error);
761
762
763# FILTER
764$output .= do {
765 my $output = '';
766 my $_tt_filter = $context->filter('html')
767 || $context->throw($context->error);
768
769$output .= $stash->get('query_cgi');
770
771 &$_tt_filter($output);
772};
773
774
775 &$_tt_filter($output);
776};
777
778#line 90 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
779
780# FILTER
781$output .= do {
782 my $output = '';
783 my $_tt_filter = $context->filter('url')
784 || $context->throw($context->error);
785
786
787# FILTER
788$output .= do {
789 my $output = '';
790 my $_tt_filter = $context->filter('html')
791 || $context->throw($context->error);
792
793$output .= $stash->get('limit_cgi');
794
795 &$_tt_filter($output);
796};
797
798
799 &$_tt_filter($output);
800};
801
802$output .= "&amp;format=rss2\" class=\"rsssearchlink\"><img src=\"";
803#line 90 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
804$output .= $stash->get('interface');
805$output .= "/";
806#line 90 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
807$output .= $stash->get('theme');
808$output .= "/images/feed-icon-16x16.png\" alt=\"Subscribe to this search\" title=\"Subscribe to this search\" border=\"0\" class=\"rsssearchicon\"/></a>\n ";
809}
810else {
811$output .= " You did not specify any search criteria. ";
812}
813
814$output .= " </p>\n";
815#line 94 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
816if (($stash->get('OPACNoResultsFound'))) {
817$output .= " <div id=\"noresultsfound\">\n";
818#line 93 "/usr/share/koha/opac/htdocs/opac-tmpl/prog/en-NZ/includes/masthead.inc"
819$output .= $stash->get('OPACNoResultsFound');
820$output .= " </div>\n";
821}
822
823$output .= " </div>\n";
824}
825
826$output .= "</p>";
827}
828
829$output .= "</div>\n";
830 } };
831 if ($@) {
832 $_tt_error = $context->catch($@, \$output);
833 die $_tt_error unless $_tt_error->type eq 'return';
834 }
835
836 return $output;
837}
838
839;
Report produced by the NYTProf 4.04 Perl profiler, developed by Tim Bunce and Adam Kaplan.